-- card: 2966 from stack: in.5
-- bmap block id: 7067
-- flags: 0000
-- background id: 2765
-- name: Card
----- HyperTalk script -----
on elong
  go first card
  put line 5 of field "Mars RA" of card 2 into sra
  put line 6 of field "Mars RA" of card 2 into sdec
  repeat with i=3 to 9
    set cursor to busy
    put (sra -  line 5 of field "Mars RA" of card i) into dra
    put (sdec - line 6 of field "Mars RA" of card i) into ddec
    put (dra+360) mod 360 into arg
    if arg>180 then
      get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
      put "E" into dir
    else
      get round(sqrt(dra*dra + ddec*ddec))
      put "W" into dir
    end if
    put (short name of card i) & " -- " &it && dir into line i-2 of card field "elong"
  end repeat
  set cursor to 1
end elong


-- part 2 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=37 top=51 right=67 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sidereal Cheb


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=129 top=74 right=140 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Coords


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=245 right=279 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 138
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Algol


-- part 24 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=272 top=164 right=281 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elong


-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=37 top=310 right=331 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update for Today
----- HyperTalk script -----
on mouseUp
  global force
  put 1 into force
  put the seconds into t1
  show field "Rem"
  repeat with i=2 to 9
    put round((the seconds-t1)/1.9) & "%" into field "Rem" of card i
    go card i
  end repeat
  hide field "Rem"
  put 0 into force
  elong
end mouseUp



-- part contents for card part 2
----- text -----
37.3666434 12.02493549 .00000478 -.00000035 .00000285 .00001539 -.00000356 -.00000655

22.208333

-- part contents for card part 9
----- text -----
33.5
84
103
5.0 (EST)

-- part contents for background part 7
----- text -----
Sidereal Time = 20:40
20.669446

-- part contents for background part 6
----- text -----
Universal Time = 19:28
19.478611

-- part contents for background part 14
----- text -----
Card

-- part contents for background part 28
----- text -----
2 January 1989

-- part contents for background part 31
----- text -----
Julian Date = 2447529.312

-- part contents for card part 23
----- text -----
Next minimum of Algol occurs in 42.1 hours at JD=2447531.065
47531.065

-- part contents for card part 24
----- text -----
Mercury -- 21 E
Venus -- 24 W
Mars -- 101 E
Jupiter -- 137 E
Saturn -- 7 W
Uranus -- 12 W
Neptune -- 3 W

-- part contents for background part 37
----- text -----
1

-- part contents for background part 10
----- text -----